home *** CD-ROM | disk | FTP | other *** search
/ Shareware Super Platinum 8 / Shareware Super Platinum 8.iso / mac / PROGTOOL / TIEDEMO3.ZIP;1 / SOURCE / ICON174.TS / ICON174.TS
Encoding:
Text File  |  1993-04-01  |  1.6 KB  |  63 lines
  1. unit    icon174:10    $$ vector graphics/text block
  2. 174        $$ label - return here if invalid input
  3. enable  touch
  4. pause   keys=all
  5. disable touch
  6. if      ((zkey = touch $and$ (ztouchx > 536) $and$ (ztouchy > 386) $and$ (ztouchx < 632) $and$ (ztouchy < 419)))
  7. .       calc    TOUCHBOX _ 0
  8. .       jump    icon171
  9. endif
  10. if      ((zkey = touch $and$ (ztouchx > 286) $and$ (ztouchy > 83) $and$ (ztouchx < 413) $and$ (ztouchy < 95)))
  11. .       calc    TOUCHBOX _ 1
  12. .       do      dctnry
  13. .       branch  174
  14. endif
  15. if      ((zkey = touch $and$ (ztouchx > 287) $and$ (ztouchy > 67) $and$ (ztouchx < 362) $and$ (ztouchy < 81)))
  16. .       calc    TOUCHBOX _ 2
  17. .       do      dctnry
  18. .       branch  174
  19. endif
  20. if      ((zkey = touch $and$ (ztouchx > 285) $and$ (ztouchy > 19) $and$ (ztouchx < 431) $and$ (ztouchy < 33)))
  21. .       calc    TOUCHBOX _ 3
  22. .       do      dctnry
  23. .       branch  174
  24. endif
  25. style   outline
  26. style   thickness,1
  27. style   dash  $$ solid line style
  28. if      zkey = "a"
  29. .       do      menukey1
  30. .       branch  174
  31. endif
  32. if      zkey = "r"
  33. .       do      menukey1
  34. .       branch  174
  35. endif
  36. if      zkey = "q"
  37. .       do      menukey1
  38. .       branch  174
  39. endif
  40. if      zkey = "b"
  41. .       do      menukey1
  42. .       branch  174
  43. endif
  44. if      zkey = "o"
  45. .       do      menukey1
  46. .       branch  174
  47. endif
  48. if      zkey = "n"
  49. .       do      menukey1
  50. .       branch  174
  51. endif
  52. if      zkey = "f"
  53. .       do      menukey1
  54. .       branch  174
  55. endif
  56. if      zkey = "h"
  57. .       do      menukey1
  58. .       branch  174
  59. endif
  60. branch  174   $$ not valid input - get again
  61. 174end
  62. disable touch
  63.